home *** CD-ROM | disk | FTP | other *** search
/ Word Play Farm / Word Play Farm.iso / pc / movies / shared.dxr / 00521_Play Reward On Mouseup and stay on frame inpuzzle.ls < prev    next >
Encoding:
Text File  |  1996-07-29  |  217 b   |  15 lines
  1. on exitFrame
  2.   go(the frame)
  3.   PlayReward()
  4. end
  5.  
  6. on mouseUp
  7.   global gSectData, gPlayReward
  8.   set gPlayReward to CheckReward(gSectData)
  9.   if gPlayReward = 1 then
  10.     mousesound()
  11.   else
  12.     resetPuzzle()
  13.   end if
  14. end
  15.